home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 52 / 052.d81 / spanish main (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  11KB  |  304 lines
  1. 1 rem " [211]panish, [197]asy as [193]-[194]-[195]                 (c) 1988 by [212]om [195]anfield"
  2. 10 br=53280:sc=53281:print"[147] [208]lease wait...[204]oading quiz."
  3. 11 s=54272:pokes+24,15:s4=s+4:s1=s+1
  4. 12 pokes1,21:pokes+5,9:pokes+6,10:pokes4,32:pokes4,33
  5. 329 dimh,d,q,x,y,t%,e%,sl%,ca%,tc%,aa,bb,xx,yy,ao,bo,xo,yo,an,bn,xn,yn,at,xt
  6. 330 dimcc,cn,co,zz,zn,zo,tb,eo,en,pg,pc%,ct%,w%(29),c%(29):pc%=0
  7. 331 dime$,er$,sl$(2,2,44),el$(2,2,44)
  8. 332 dimaq$(2,3),lv$(3),ph$(3),sc$(4)
  9. 335 foraa=0to2:forbb=0to2:readaq$(aa,bb):next:next:readaq$(1,3)
  10. 336 foraa=0to2:readlv$(aa):readph$(aa):next
  11. 337 foraa=0to4:readsc$(aa):next
  12. 340 :
  13. 341 open2,8,2,"questions"
  14. 345 forh=0to2:fori=0to2:forj=0to44:input#2,sl$(h,i,j):input#2,el$(h,i,j)
  15. 347 next:next:next:close2
  16. 350 ifd=0then360
  17. 351 c%(0)=int(rnd(0)*40)
  18. 352 pokebr,7:pokesc,7:poke214,7:print:printtab(10)" [176][192][192][192][192][192][192][192][192][192][192][192][192][192][174] [155]*"
  19. 353 printtab(10)"[176][190]             [188][174][155] "
  20. 354 printtab(10)"[221]               [221][155] "
  21. 355 printtab(10)"[221] [210][197][214][201][211][201][206][199][160][209][213][201][218] [221][155] "
  22. 356 printtab(10)"[221]               [221][155] "
  23. 357 printtab(10)"[173][187]             [172][189][155] "
  24. 358 printtab(10)" [173][192][192][192][192][192][192][192][192][192][192][192][192][192][189] [155] "
  25. 359 printtab(10)"*                 "
  26. 360 forx=1to29
  27. 370 c%(x)=int(rnd(0)*45)
  28. 380 fory=0tox-1:ifc%(x)=c%(y)then370
  29. 390 next:next:pokes4,32:pokes4,33
  30. 395 tc%=0:t%=0:pc%=0:ct%=13
  31. 400 ift%<30thencc%=ct%:goto410
  32. 401 print" [176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174] [155]*"
  33. 402 print"[176][190]                              [188][174][155] "
  34. 403 print"[221] [209]uiz complete, cannot continue [221][155] "
  35. 404 print"[173][187]                              [172][189][155] "
  36. 405 print" [173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189] [155] "
  37. 406 print"*                                  "
  38. 407 goto1118
  39. 410 ifd=3then2370
  40. 425 ifd<>1thenpokebr,9:pokesc,9
  41. 430 print"[147]"tab(12)" [176][192][192][192][192][192][192][192][192][192][174] [155]*"
  42. 440 printtab(12)"[176][190]         [188][174][155] "
  43. 450 printtab(12)"[221]  [211][208][193][206][201][211][200]  [221][155] "
  44. 460 printtab(12)"[173][187]         [172][189][155] "
  45. 470 printtab(12)" [173][192][192][192][192][192][192][192][192][192][189] [155] "
  46. 471 printtab(12)"*             ":ifd=1then571
  47. 475 print" [176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174] [155]*"
  48. 476 print"[176][190]                                 [188][174][155] "
  49. 477 print"[221] [205]ake selections with [146][195][210][211][210] keys or [221][155] "
  50. 478 print"[221] press letter.  [212]hen press [146][210][197][212][213][210][206]. [221][155] "
  51. 479 print"[221] [197]ach quiz contains 30 questions.  [221][155] "
  52. 480 print"[221] [192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192] [221][155] "
  53. 481 print"[221][150]  [204][197][214][197][204] [201]  [221][154] [204][197][214][197][204][160][201][201]  [221] [204][197][214][197][204][160][201][201][201] [221][155] "
  54. 482 forx=0to2:print"[221]           [221]           [221]           [221][155] "
  55. 483 print"[221]"aq$(0,x)"[221]"aq$(1,x)"[221]"aq$(2,x)"[221][155] ":next
  56. 484 print"[221]           [221]           [221]           [221][155] "
  57. 485 print"[221]           [221]"aq$(1,3)"[221]           [221][155] "
  58. 486 print"[173][187]                                 [172][189][155] "
  59. 487 print" [173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189] [155] "
  60. 488 print"*                                     "
  61. 505 ifd=2then2010
  62. 520 yy=14:yn=14:xx=2:xn=2:aa=0:bb=0:goto2510
  63. 530 gete$:ife$=""then530
  64. 540 pokes4,32:pokes4,33
  65. 550 goto2020
  66. 570 for x=7to12:poke781,x:sys59903:next:forx=21to24:poke781,x:sys59903:next
  67. 571 print"[176][192][192][192][192][192][192][192][192][192][192][192][174][146]             [176][192][192][192][192][192][192][192][192][192][192][192][174]"
  68. 572 print"[221]          [157][157][157][157][157][157][157][157][157]"lv$(aa)
  69. 573 printtab(11)"[145] [221]"tab(26)"[221]         [157][157][157][157][157][157][157][157][148]"ph$(bb)
  70. 574 printtab(37)"[145] [221]"
  71. 575 print"[171][192][192][192][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][192][178][192][192][192][177][192][192][192][192][192][192][192][192][192][192][192][179]"
  72. 576 print"[221] [195]orrect answers: [146]   [221] [208]ercent: [146]     [221]"
  73. 577 print"[173][192][192][192][192][192][192][192][192][192][192][178][192][192][192][192][192][192][192][192][192][192][177][192][192][192][178][192][192][192][192][192][192][192][192][192][192][192][179]"
  74. 578 printtab(11)"[221] [209]uestion: [146]   [221] [198]1 = [197]xit [221]"
  75. 579 printtab(11)"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][192][192][192][189]":goto590
  76. 580 t%=t%+1:ift%>29thenpokes1,21:pokes4,32:pokes4,33:goto1010
  77. 590 for x=13to20:poke781,x:sys59903:next
  78. 595 cc%=cc%+1:ifcc%=7orcc%=13thencc%=cc%+1
  79. 597 ifcc%=15thencc%=2
  80. 600 pokebr,cc%:pokesc,cc%
  81. 607 poke214,8:print:iftc%>9thenprinttab(18)tc%:printtab(18)"[145] [145]":goto609
  82. 608 printtab(19)tc%"[145]"
  83. 609 ift%>0thenpc%=int(tc%/t%*100+.5)
  84. 610 ifpc%=100thenprinttab(33)"100%":goto613
  85. 611 ifpc%>9thenprinttab(33)pc%"[157][157][157][157] %":goto613
  86. 612 printtab(34)pc%"[157][157][157][157]  %"
  87. 613 ift%>8thenprinttab(22)t%+1:printtab(22)"[145] ":goto615
  88. 614 printtab(23)t%+1
  89. 615 print""sl$(aa,bb,c%(t%))
  90. 616 print"";:forx=1tolen(sl$(aa,bb,c%(t%))):print"[192]";:next:print
  91. 620 w%(1)=c%(t%)
  92. 630 forx=2to4
  93. 640 w%(x)=int(rnd(0)*30)
  94. 650 fory=1tox-1:ifw%(x)=w%(y)then640
  95. 660 next:next
  96. 670 ca%=int(rnd(1)*4)+1:ifca%=1then690
  97. 680 h%=w%(1):w%(1)=w%(ca%):w%(ca%)=h%
  98. 690 printtab(tb)"[193]) "el$(aa,bb,w%(1))
  99. 700 printtab(tb)"[194]) "el$(aa,bb,w%(2))
  100. 710 printtab(tb)"[195]) "el$(aa,bb,w%(3))
  101. 720 printtab(tb)"[196]) "el$(aa,bb,w%(4))
  102. 725 print"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  103. 726 print"[221]  [213]se [146][195][210][211][210] keys or press letter to   [221]"
  104. 727 print"[221] make selection.  [212]hen press [146][210][197][212][213][210][206]. [221]"
  105. 728 print"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189][145][145][145]"
  106. 735 e%=1:en=1
  107. 740 pokes1,21:pokes4,32:pokes4,33
  108. 741 gete$:ife$=""then741
  109. 742 ife$="[133]"thenct%=cc%-1:pokes4,32:pokes4,33:goto1010
  110. 743 ife$<>""then753
  111. 744 e%=e%+1:ife%=5thene%=1
  112. 745 goto756
  113. 753 ife$<>"[145]"then760
  114. 754 e%=e%-1:ife%=0thene%=4
  115. 756 eo=en:en=e%
  116. 757 poke214,eo+14:print:printtab(tb+3)el$(aa,bb,w%(eo))
  117. 758 poke214,en+14:print:printtab(tb+3)""el$(aa,bb,w%(en)):goto740
  118. 760 ife$=chr$(13)then770
  119. 765 ife$<"a"ore$>"d"then740
  120. 767 e%=asc(e$)-64:goto756
  121. 770 ife%=ca%then900
  122. 780 poke214,21:print:print"    [211]orry, the correct answer is:    "
  123. 785 print"                                     [145]"
  124. 790 printtab(19-int(len(el$(aa,bb,w%(ca%)))/2+.5))""chr$(34);
  125. 791 printel$(aa,bb,w%(ca%))chr$(34):pokes1,11:pokes4,32:pokes4,33
  126. 810 fori=1to4650:next
  127. 820 goto580
  128. 900 poke214,21:print:print"                                     [145]"
  129. 901 printtab(18-int(len(el$(aa,bb,w%(ca%)))/2+.5))""chr$(34);
  130. 904 printel$(aa,bb,w%(ca%))chr$(34):pokes4,32:pokes4,33
  131. 905 pri